home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / LIST LOCATIONS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  66 lines
  1. 100 REM LIST LOCATIONS
  2. 110 REM WRITTEN BY KURT BRANDON
  3. 120 REM THE EQUATES IN THE FIRST LINES
  4. 130 REM ARE FOR CUSTOMIZING THE
  5. 140 REM PROGRAM FOR YOUR OWN PRINTER.
  6. 150 REM AS IS, IT RUNS FINE ON A
  7. 160 REM STAR NX-1000.
  8. 170 :
  9. 180 :
  10. 190 :
  11. 200 DN=PEEK(186):REM DRIVE ADDRESS
  12. 210 PN=4:REM PRINTER DEVICE NUMBER
  13. 220 TM=5:REM SECONDARY ADDRESS FOR TRANSPARENT MODE
  14. 230 Z$=CHR$(0)
  15. 240 NC=5:REM NUMBER OF COLUMNS
  16. 250 NR=72:REM NUMBER OF ROWS
  17. 260 ES$=CHR$(27):REM ESCAPE COMMAND
  18. 270 CE$=CHR$(33)+CHR$(5):REM CONDENSED ELITE PRINT (20 CHARACTERS/INCH)
  19. 280 TS$=CHR$(68):REM COMMAND TO START SETTING TABS
  20. 290 SE$=ES$+TS$+CHR$(32)+CHR$(63)+CHR$(95)+CHR$(127)+Z$
  21. 300 REM SE$ SETS TAB STOPS AT COLUMNS 32,63,95 AND 127
  22. 310 TA$=CHR$(9):REM TAB COMMAND
  23. 320 RS$=CHR$(64):REM RESET COMMAND
  24. 325 LS$=ES$+CHR$(65)+CHR$(8):REM SET LINE SPACING TO 1/9 INCH
  25. 330 :
  26. 340 :
  27. 350 :
  28. 360 DIMOP$(NR,NC):A=65
  29. 370 OPEN1,PN,TM:PRINT#1,ES$CE$LS$
  30. 380 OPEN15,DN,15
  31. 390 FORI=1TONC
  32. 400 FORJ=1TONR
  33. 410 IFA=>90ANDRN>MNTHEN440
  34. 420 GOSUB570:IFA<=90THENOP$(J,I)=PL$
  35. 430 NEXT:NEXT
  36. 440 FORX=1TONR
  37. 450 FORY=1TONC
  38. 460 PRINT#1,OP$(X,Y)TA$;
  39. 470 NEXTY
  40. 480 PRINT#1,CHR$(10)
  41. 490 NEXTX
  42. 500 PRINT#1,CHR$(12)
  43. 510 FORI=1TONC:FORJ=1TONR:OP$(J,I)="":NEXT:NEXT
  44. 520 IFA<90OR(A=90ANDRN<MN)THEN390
  45. 530 PRINT#1,ES$RS$:CLOSE1:CLOSE8:CLOSE15:GOTO800
  46. 540 :
  47. 550 :
  48. 560 :
  49. 570 IFOP=1THEN600
  50. 580 IFOP=0THENOP=1:OPEN8,DN,8,CHR$(A):RN=1
  51. 590 GOSUB680:GOSUB690:INPUT#8,MN
  52. 600 RN=RN+1:IFRN<=MNTHEN630
  53. 610 A=A+1:IFA>90THENRETURN
  54. 620 CLOSE8:OP=0:GOTO570
  55. 630 GOSUB680:GOSUB690:INPUT#8,PL$,LA$,LO$
  56. 640 RETURN
  57. 650 :
  58. 660 :
  59. 670 :
  60. 680 RH=INT(RN/256):RL=RN-(256*RH)
  61. 690 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
  62. 700 INPUT#15,E,E$,AA,B
  63. 710 IF E=0ORE=50THENRETURN
  64. 720 PRINTE;E$;AA;B:CLOSE1:CLOSE8:CLOSE15:END
  65. 800 LOAD"MENU",DN
  66.